Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/mcdsk340/_mdimdsk.frm

Text File | 1997-01-15 | 5KB | 190 lines

VERSION 4.00
Begin VB.MDIForm mdiMCDSK
   AutoShowChildren=   0   'False
   BackColor       =   &H00808080&
   Caption         =   "MCDISK 32-Bit DEMO"
   ClientHeight    =   7335
   ClientLeft      =   705
   ClientTop       =   1245
   ClientWidth     =   10410
   Height          =   8025
   Icon            =   "_MdiMDSK.frx":0000
   Left            =   645
   Top             =   615
   Width           =   10530
   Begin Threed.SSPanel SSPanel1
      Align           =   1  'Align Top
      Height          =   465
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   10410
      _Version        =   65536
      _ExtentX        =   18362
      _ExtentY        =   820
      _StockProps     =   15
      BackColor       =   12632256
      Begin VB.PictureBox Picture1
         AutoSize        =   -1  'True
         Height          =   300
         Left            =   11550
         Picture         =   "_MdiMDSK.frx":030A
         ScaleHeight     =   240
         ScaleWidth      =   240
         TabIndex        =   6
         Top             =   75
         Visible         =   0   'False
         Width           =   300
      End
      Begin VB.ComboBox cmb_Group
         Height          =   315
         Left            =   2250
         TabIndex        =   2
         Top             =   90
         Width           =   4695
      End
      Begin VB.Label Label1
         Caption         =   "&Select a group of functions"
         Height          =   255
         Left            =   90
         TabIndex        =   1
         Top             =   120
         Width           =   2085
      End
   End
   Begin Threed.SSPanel SSPanel2
      Align           =   2  'Align Bottom
      Height          =   420
      Left            =   0
      TabIndex        =   3
      Top             =   6915
      Width           =   10410
      _Version        =   65536
      _ExtentX        =   18362
      _ExtentY        =   741
      _StockProps     =   15
      BackColor       =   12632256
      Begin Threed.SSPanel pnl_Timer
         Height          =   240
         Left            =   2970
         TabIndex        =   5
         Top             =   90
         Width           =   825
         _Version        =   65536
         _ExtentX        =   1455
         _ExtentY        =   423
         _StockProps     =   15
         BackColor       =   12632256
      End
      Begin Threed.SSPanel pnl_Version
         Height          =   240
         Left            =   11340
         TabIndex        =   8
         Top             =   90
         Width           =   510
         _Version        =   65536
         _ExtentX        =   900
         _ExtentY        =   423
         _StockProps     =   15
         BackColor       =   12632256
      End
      Begin VB.Label Label4
         AutoSize        =   -1  'True
         Height          =   195
         Left            =   4935
         TabIndex        =   9
         Top             =   105
         Width           =   45
      End
      Begin VB.Label Label3
         Alignment       =   1  'Right Justify
         Caption         =   "MCDSK-32 version"
         Height          =   225
         Left            =   9765
         TabIndex        =   7
         Tag             =   "elapsed time for ~ iterations (in ms)"
         Top             =   105
         Width           =   1440
      End
      Begin VB.Label Label2
         Caption         =   "elapsed time for ? iterations (in ms)"
         Height          =   225
         Left            =   90
         TabIndex        =   4
         Tag             =   "elapsed time for ~ iterations (in ms)"
         Top             =   90
         Width           =   2805
      End
   End
   Begin VB.Menu mnu_Exit
      Caption         =   "E&xit"
   End
End
Attribute VB_Name = "mdiMCDSK"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit

Dim IsLoaded         As Integer


Private Sub cmb_Group_Click()

   Dim Frm        As Form

   Select Case cmb_Group.ListIndex
      Case 0:  Set Frm = frmFile
   End Select

   Load Frm

End Sub



Private Sub MDIForm_Load()

   Dim intResult     As Integer

   Me.WindowState = 2

   IsLoaded = False

   pnl_Version = Format(cGetVersion(), "#.00")

   Call sub_Check_Project

   Call sub_Initialization

   Call sub_Load_Combo(cmb_Group, T2WDirInst + "_group.t2w")

   Label4.Caption = "Register MC-DISK"

   IsLoaded = True

End Sub


Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)

   MsgBox "Thank you for registering MCDSK-32.DLL", , "MCDSK-32.DLL demo"

End Sub

Private Sub MDIForm_Resize()

   If (Me.WindowState = 0) Then Me.WindowState = 2

End Sub




Private Sub mnu_Exit_Click()

   Unload Me

End Sub